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{$PC+) { Apple /// Pascal Compiler 2.136 P-code listing directive } 
(*$S+*) (* USE SWAPPING OPTION FOR LARGE PROGRAMS *) 
PROGRAM GRAFDEMO; 

<* *) 
(* THIS IS A HURRIDLY- WRITTEN EXAMPLE SHOWING THE USE OF *) 
(* ROUTINES IN TURTLEGRAPHICS AND APPLESTUFF UNITS. *) 



IT DOES HAVE A DESCRIPTION OF DRAWBLOCK TOWARD THE END. 
I HOPE IT HELPS TO ANSWER SOME OF YOUR QUESTIONS. 



<* 
(* 

(* MANY THANKS TO THE FINE TEAM AT UCSD. 

(* ENJOY YOUR NEW PASCAL SYSTEM. BILL ATKINSON, MAY 5 1979 



2 


1 


1 






TYPE 




20 


1 


1 


__ 




SCREENCOLOR= (NONE, WHITE, BLACK, REVERSE, RADAR, 


20 


1 


1 


— 






BLACK1, GREEN, VIOLET, WHITE1, BLACK2, ORANGE, BLUE, WHITE2) ; 


20 


2 


1 


— 


A 


PROCEDURE 


INITTURTLE; 


20 


3 


1 


— 


A 


PROCEDURE 


TURN (ANGLE: INTEGER) ; 


20 


4 


1 


— 


A 


PROCEDURE 


TURNTO (ANGLE: INTEGER); 


20 


5 


1 


— 


A 


PROCEDURE 


MOVE (DIST : INTEGER) ; 


20 


6 


1 


— 


A 


PROCEDURE 


MOVETO (X, Y : INTEGER) ; 


20 


7 


1 


— 


A 


PROCEDURE 


PENCOLOR (PENMODE : SCREENCOLOR); 


20 


8 


1 


— 


A 


PROCEDURE 


TEXTMODE; 


20 


9 


1 


— 


A 


PROCEDURE 


GRAFMODE; 


20 


10 


1 


— 


A 


PROCEDURE 


FILLSCREEN (FILLCOLOR: SCREENCOLOR) ; 


20 


11 


1 






PROCEDURE 


VIEWPORT (LEFT, RIGHT, BOTTOM, TOP : INTEGER) ; 


20 


12 


3 




A 


FUNCTION 


TURTLEX: INTEGER; 


20 


13 


3 




A 


FUNCTION 


TURTLEY: INTEGER; 


20 


14 


3 




A 


FUNCTION 


TURTLEANG : INTEGER; 


20 


15 


3 




A 


FUNCTION 


SCREENBIT (X, Y: INTEGER): BOOLEAN; 


20 


16 


1 




A 


PROCEDURE 


DRAWBLOCK (VAR SOURCE; ROWSIZE, XSKIP, YSKIP, WIDTH, HEIGHT, 


20 


16 


2 








XSCREEN, YSCREEN, MODE : INTEGER); 


20 


17 


1 




A 


PROCEDURE 


WCHAR (CH: CHAR) ; 


20 


18 


1 




A 


PROCEDURE 


WSTRING(S: STRING); 


20 


19 


1 




A 


PROCEDURE 


CHARTYPE (MODE: INTEGER); 


22 


1 


1 






TYPE 




22 


1 


1 






DSTR8-STRING [8]; 


22 


1 


1 






TSTR6=STRING [6]; 


22 


1 


1 






SSTR18=STRING [18]; 


22 


2 


3 




A 


FUNCTION PADDLE (SELECT : INTEGER): INTEGER; 


22 


3 


3 




A 


FUNCTION BUTTON (SELECT: INTEGER): BOOLEAN; 


22 


4 


1 




A 


PROCEDURE JOYSTICK (SELECT: INTEGER; VAR X,Y: INTEGER; VAR B0,B1: BOOLEAN); 


22 


5 


3 




A 


FUNCTION KEYPRESS: BOOLEAN; 


22 


6 


3 




A 


FUNCTION RANDOM : INTEGER; 


22 


7 


1 




A 


PROCEDURE RANDOMIZE; 


22 


8 


1 




A 


PROCEDURE NOTE (PITCH, DURATION: INTEGER); 


22 


9 


1 




A 


PROCEDURE SOUND (PITCH, DURATION, VOLUME : INTEGER) ; 


22 


10 


1 




A 


PROCEDURE DATE (VAR D: DSTR8) ; 


22 


11 


1 




A 


PROCEDURE TIMEOFDAY (VAR T: TSTR6) ; 


22 


12 


1 




A 


PROCEDURE CLOCKINFO (VAR YR, MON, DAY, DAYOFWK, HR, MIN, SEC, THOU : INTEGER); 


22 


13 


1 




A 


PROCEDURE SETTIME (T : SSTR18) ; 
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64 












65 


1 


1 


12 




USES TURTLEGRAPHICS, APPLESTUFF; 


66 












67 


1 


1 


3 




CONST XMAX=2 7 9; 


68 


1 


1 


3 




YMAX=191; 


69 


1 


1 


3 




XMID-140; 


70 


1 


1 


3 




YMID=96; 


71 












72 


1 


1 


3 




TYPE PICTURE=PACKED ARRAY [0. ,53,0. .120] 


73 












74 


1 


1 


3 




VAR I, J, K, SKIP, ROW: INTEGER; 


1 o 


1 


1 


8 




CH : CHAR; 


1 c 


1 


1 


9 




COLORS: ARRAY [0.. 5] OF SCREENCOLOR; 


7 7 


i 


l 


15 




BUTTER: PICTURE; 


7 8 


1 
i 


1 


4 4 7 




BIT: BOOLEAN; 


1 Q 












ou 












81 


1 


2 


1 




A PROCEDURE WAIT (TIME : INTEGER) ; 


82 






2 




VAR DELAY: INTEGER; 


BJ 


1 


2 





0- 


A BEGIN 


84 


1 


2 







FOR DELAY :=1 TO TIME DO; 











01 


SLDC 1 








1 


cc 


02 STL 2 








3 


D8 


SLDL 1 








4 


CC 


03 STL 3 








6 


D9 


SLDL 2 








7 


DA 


SLDL 3 








8 


C8 


LEQI 








9 


Al 


** FJP [1953] 








11 


D9 


SLDL 2 








12 


01 


SLDC 1 








13 


82 


AD I 








1 4 


CC 


02 STL 2 








1 6 


B9 


F6 UJP -10 (6) 








10 


07 


Patch 10 with 7 (18) 


85 




2 


1 8 


— 


A END; 


8 6 






1 a 


An 


C\t\ mill 

U U RNP 


87 












88 




-3 


1 
1 




A PROCEDURE FRAME (COLOR: SCREENCOLOR); 


89 




3 


Q 


■ 




90 




3 


Q 




PENCOLOR (NONE) ; MOVETO(0,0) ; 








U 


00 


SLDC 








1 


CD 


14 07 CXP 20, PENCOLOR 








4 


00 


SLDC 








5 


00 


SLDC 








D 


CD 


14 06 CXP 20,MOVETO 


91 




3 


9 




PENCOLOR (COLOR) ; 








9 


D8 


SLDL 1 








10 


CD 


14 07 CXP 20, PENCOLOR 


92 




J 


1 3 




MO VE TO ( , YMAX ); MOVETO(XMAX, YMAX ) ; 








13 


00 


SLDC 








14 


C7 


BF00 LDCI 191 








17 


CD 


14 06 CXP 20,MOVETO 








20 


C7 


1701 LDCI 279 








23 


C7 


BF0O LDCI 191 








26 


CD 


14 06 CXP 20,MOVETO 


93 


1 


3 


29 




MOVETO (XMAX, 0) ; MOVETO(0,0); 








29 


C7 


1701 LDCI 279 








32 


00 


SLDC 








33 


CD 


14 06 CXP 20, MOVETO 
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36 00 




SLDC 












37 00 




SLDC 












38 CD 14 


06 


CXP 20,MOVETO 






94 


1 


3 


41 — 


PENCOLOR (NONE) ; 












41 00 




SLDC 












42 CD 14 


07 


CXP 20, PENCOLOR 






95 


1 


3 


45 -0 A 


END; 














45 AD 00 




RNP 






96 
















97 
















98 


1 


4 


1 — A 


PROCEDURE GOODBYE; 






99 


1 


4 


0- A 


BEGIN 








100 


1 


4 


— 


TEXTMODE; 














CD 14 


08 


CXP 20, TEXTMODE 






101 


1 


4 


3 — 


READ (KEYBOARD, CH) ; 












3 B6 02 


04 


LOD 2 , 4 












6 A5 08 




LAO 8 












8 CD 00 


10 


CXP 0,READ_C 












11 9E 00 




CSP IOCHECK 






102 


1 


4 


13 — 


WRITELN; 














13 B6 02 


03 


LOD 2 , 3 












16 CD 00 


16 


CXP 0, WRITELN 












19 9E 00 




CSP IOCHECK 






103 


1 


4 


21 — 


WRITELN ( ' THAT ' ' S ALL FOLKS ...'); 












21 B6 02 


03 


LOD 2,3 












24 D7 




NOP 












25 A6 13 


544841542753 


LSA 19, "THAT'S 












33 


20414C4C2046 


ALL F 












39 


4F4C4B532E2E 


OLKS . . 












45 


2E 














46 00 




SLDC 












47 CD 00 


13 


CXP 0,WRITE_STR 












50 9E 00 




CSP IOCHECK 












52 B6 02 


03 


LOD 2,3 












55 CD 00 


16 


CXP 0, WRITELN 












58 9E 00 




CSP IOCHECK 






104 


1 


4 


60 — 


EXIT (PROGRAM) ; 












60 01 




SLDC 1 












61 01 




SLDC 1 












62 9E 04 




CSP EXIT 






105 


1 


4 


64 -0 A END; 














64 AD 00 




RNP 






106 
















107 
















108 


1 


5 


1 — A PROCEDURE ERASE; 






109 


1 


5 


0- A BEGIN 








110 


1 


5 


— 


IF KEYPRESS 


THEN GOODBYE; 












00 




SLDC 












1 00 




SLDC 












2 CD 16 


05 


CXP 22, KEYPRESS 












5 Al ** 




FJP [673] 












7 CF 04 




CGP GOODBYE 












6 02 Patch 6 with 2 


9) 






111 


1 


5 


9 — 


VIEWPORT (0, XMAX, 0, YMAX) ; 












9 00 




SLDC 












10 C7 1701 


LDCI 279 












13 00 




SLDC 












14 C7 BF0O 


LDCI 191 












17 CD 14 


0B 


CXP 20, VIEWPORT 






112 


1 


5 


20 — 


FRAME (WHITE) 














20 01 




SLDC 1 
















j 
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21 CF 03 




CGP 


FRAME 


113 


1 


5 


23 — VIEWPORT (1,XMAX- 


l.l.YMAX-l); 








23 01 




SLDC 


1 








24 C7 1701 




LDCI 


279 








27 01 




SLDC 


1 








28 95 




SB I 










29 01 




SLDC 


1 








30 C7 BFO0 




LDCI 


191 








33 01 




SLDC 


1 








34 95 




SBI 










35 CD 14 OB 




CXP 


2 0, VIEWPORT 


114 


1 


5 


38 — FILLSCREEN (BLACK) ; 








38 02 




SLDC 


2 








39 CD 14 OA 




CXP 


20, FILLSCRE 


115 


1 


5 


4 2 -0 A END; 














42 AD 00 




RNP 





116 














117 














118 


1 


6 


3 — A FUNCTION RANDCOLOR 


: SCREENCOLOR 


119 


1 


6 


0- A BEGIN 








120 


1 


6 


— RANDCOLOR : = 


COLORS [RANDOM MOD 








A5 09 




LAO 


9 








2 00 




SLDC 











3 00 




SLDC 











4 CD 16 06 




CXP 


22, RANDOM 








7 06 




SLDC 


6 








8 8E 




MODI 










9 00 




SLDC 











10 05 




SLDC 


5 








11 88 




CHK 










12 A4 01 




IXA 


1 








14 F8 




SIND 











15 CC 01 




STL 


1 




1 


6 


17 -0 A END; 














17 AD 01 




RNP 


1 


122 














123 














124 




-7 


1 ~ A PROCEDURE FAN 






125 




n 
I 


0- A BEGIN 








1/D 


1 


7 


— FOR 


J:=l TO 


3 DO 










01 




SLDC 


1 








1 AB 06 




SRO 


6 








3 03 




SLDC 


3 








4 CC 01 




STL 


1 








6 ED 




SLDO 


6 








7 D8 




SLDL 


1 








8 C8 




LEQI 










9 Al ** 




FJP 


[28000] 


127 




~j 


11 — FOR I:=17 


DOWNTO 1 DO 








11 11 




SLDC 


17 








12 AB 07 




SRO 


7 








14 01 




SLDC 


1 








15 CC 02 




STL 


2 








17 EE 




SLDO 


7 








18 D9 




SLDL 


2 








19 C4 




GEQI 










20 Al ** 




FJP 


[28000] 


128 


1 


7 


22 1- 


BEGIN 






129 


1 


7 


22 — 


PENCOLOR (NONE) ; MOVETO ( 








22 00 




SLDC 











23 CD 14 07 




CXP 


20, PENCOLOR 








26 00 




SLDC 











27 00 




SLDC 
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28 CD 14 06 


CXP 20,MOVETO 






130 1 


7 


31 — 


PENCOLOR (REVERSE) ; 










31 03 


SLDC 3 










32 CD 14 07 


CXP 20, PENCOLOR 






131 1 


7 


35 — 


TURNTO(5*I); MOVE(400); 










35 05 


SLDC 5 










36 EE 


SLDO 7 










37 8F 


MPI 










38 CD 14 04 


CXP 20,TURNTO 










41 C7 9001 


LDCI 4 00 










44 CD 14 05 


CXP 20, MOVE 






132 1 


7 


47 -1 


END; 










4 7 EE 


SLDO 7 










48 01 


SLDC 1 










4 9 95 


SBI 










'iH An A 1 
3U AJ3 U / 


SRO 7 










52 B9 F6 


UJP -10 (17) 










54 ED 


SLDO 6 










55 01 


SLDC 1 










56 82 


AD I 










57 AB 06 


SRO 6 










59 B9 F4 


UJP -12 (6) 










21 20 Patch 


21 with 32 (54) 










10 32 Patch 


10 with 50 (61) 






133 1 


7 


61 — WAIT (2000) ; 










61 C7 D007 


LDCI 2000 










64 CF 02 


CGP WAIT 






134 1 


7 


66 — IF KEYPRESS THEN GOODBYE ; 










66 00 


SLDC 










67 00 


SLDC 










68 CD 16 05 


CXP 22, KEYPRESS 










71 Al ** 


FJP [673] 










73 CF 04 


CGP GOODBYE 










72 02 Patch 


72 with 2 (75) 






135 1 


7 


75 — FILLSCREEN (REVERSE) ; 










75 03 


SLDC 3 










76 CD 14 OA 


CXP 20, FILLSCRE 






136 1 


7 


79 — FILLSCREEN (REVERSE) ; 










79 03 


SLDC 3 










80 CD 14 OA 


CXP 20, FILLSCRE 






137 












138 1 


7 


83 — FOR I:=0 TO 4 DO 










83 00 


SLDC 










84 AB 07 


SRO 7 










86 04 


SLDC 4 










87 CC 01 


STL 1 










89 EE 


SLDO 7 










90 D8 


SLDL 1 










91 C8 


LEQI 










92 Al ** 


FJP [28000] 






139 1 


7 


94 1- 


BEGIN 






140 1 


7 


94 — 


SKIP : =1*15; 










94 EE 


SLDO 7 










95 OF 


SLDC 15 










96 8F 


MPI 










97 AB 04 


SRO 4 






141 






(* USE VIEWPORT TO SPECIFY PORTION OF SCREEN *) 






142 1 


7 


99 — 


VIEWPORT (SKIP, XMAX-SKIP, SKIP, YMAX-SKIP) ; 










99 EB 


SLDO 4 
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100 C7 1701 


LDCI 279 












103 EB 


SLDO 4 












104 95 


SBI 












105 EB 


SLDO 4 












106 C7 BF00 


LDCI 191 












109 EB 


SLDO 4 












110 95 


SBI 












111 CD 14 OB 


CXP 2 0, VIEWPORT 








143 1 


7 


114 — 


IF 1=2 THEN 












114 EE 


SLDO 7 












115 02 


SLDC 2 












116 C3 


EQUI 












117 Al ** 


FJP [28000] 








144 1 


7 


119 2- 


BEGIN 








145 1 


7 


119 — 


PENCOLOR (NONE) ; 












119 00 


SLDC 












120 CD 14 07 


CXP 20, PENCOLOR 








146 1 


7 


123 — 


MOVETO (SKIP, SKIP) ; 












123 EB 


SLDO 4 












12 4 EB 


SLDO 4 












125 CD 14 06 


CXP 20, MOVETO 








147 1 


7 


128 — 


PENCOLOR (WHITE) ; 












128 01 


SLDC 1 












129 CD 14 07 


CXP 20, PENCOLOR 








148 1 


7 


132 — 


MOVETO (SKIP, YMAX-SKIP) ; 












132 EB 


SLDO 4 












133 C7 BFOO 


LDCI 191 












136 EB 


SLDO 4 












137 95 


SBI 








149 1 




138 CD 14 06 


CXP 20, MOVETO 








7 


141 — 


MOVETO (XMAX-SKIP, YMAX-SKIP) ; 












141 C7 1701 


LDCI 279 












144 EB 


SLDO 4 












145 95 


SBI 












146 C7 BFOO 


LDCI 191 












149 EB 


SLDO 4 












150 95 


SBI 












151 CD 14 06 


CXP 20, MOVETO 








150 1 


7 


154 — 


MOVETO (XMAX-SKIP, SKIP) ; 












154 C7 1701 


LDCI 279 












157 EB 


SLDO 4 












158 95 


SBI 












159 EB 


SLDO 4 












160 CD 14 06 


CXP 20, MOVETO 








151 1 


7 


163 — 


MOVETO (SKIP, SKIP) ; 












163 EB 


SLDO 4 












164 EB 


SLDO 4 












165 CD 14 06 


CXP 20, MOVETO 








152 1 


7 


168 — 


VIEWPORT (SKIP+1, XMAX-SKIP-1, SKIP+1, YMAX-SKIP- 1) ; 












168 EB 


SLDO 4 












169 01 


SLDC 1 












170 82 


AD I 












171 C7 1701 


LDCI 279 












174 EB 


SLDO 4 












175 95 


SBI 












176 01 


SLDC 1 












177 95 


SBI 












178 EB 


SLDO 4 












179 01 


SLDC 1 












180 82 


AD I 












181 C7 BFOO 


LDCI 191 












184 EB 


SLDO 4 












185 95 


SBI 
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186 01 


SLDC 1 












187 95 


SBI 












188 CD 14 OB 


CXP 20, VIEWPORT 






153 


1 


7 


191 — 














191 02 


SLDC 2 












192 CD 14 OA 


CXP 20, FILLSCRE 






154 


1 


7 


195 -2 


END 






155 


1 


7 


195 — 


ELSE FILLSCREEN (REVERSE) ; 












195 B9 ** 


UJP [1209) 












197 03 


SLDC 3 












198 CD 14 OA 


CXP 20, FILLSCRE 












118 4E Patch 


118 with 78 (197) 












196 04 Pat^h 
J. 3 v \J t i^ell-t-il 


196 with 4 (201) 






156 


1 


7 


201 -1 


END ; 












201 EE 


SLDO 7 












202 01 


SLDC 1 












203 82 


AD I 












204 AB 07 


SRO 7 












206 B9 F2 


UJP -14 (89) 












93 72 Patch 


93 with 114 (208) 






157 


1 


7 


208 — WAIT (3000); ERASE; 












208 C7 B80B 


LDCI 3000 












211 CF 02 


CGP WAIT 












213 CF 05 


CGP ERASE 






158 


1 


7 


215 -OA END; 














215 AD 00 


RNP 






159 














160 














161 


1 


8 


1 — A PROCEDURE GRID; 






162 


1 


8 


0- A BEGIN 






163 






(* 


DRAW VERTICAL LINES *) 






164 


1 


8 


— FOR I:=l TO 27 DO 












01 


SLDC 1 












1 AB 07 


SRO 7 












3 IB 


SLDC 27 












4 CC 01 


STL 1 












6 EE 


SLDO 7 












7 D8 


SLDL 1 












8 C8 


LEQI 












9 Al *« 


FJP [28000] 






165 


1 


8 


11 1- BEGIN 






166 


1 


8 


11 — 


PENCOLOR (NONE) ; 












11 00 


SLDC 












12 CD 14 07 


CXP 20, PENCOLOR 






167 


1 


8 


15 — 


MOVETO (1*10, YMAX) ; 












15 EE 


SLDO 7 












16 OA 


SLDC 10 












17 8F 


MPI 












18 C7 BFOO 


LDCI 191 












21 CD 14 06 


CXP 20, MOVETO 






168 


1 


8 


24 — 


PENCOLOR (WHITE) ; 












24 01 


SLDC 1 












25 CD 14 07 


CXP 20, PENCOLOR 






169 


1 


8 


28 — 


MOVETO (1*10,0); 












28 EE 


SLDO 7 












29 OA 


SLDC 10 












30 8F 


MPI 












31 00 


SLDC 












32 CD 14 06 


CXP 20, MOVETO 
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170 1 8 


35 -1 


END; 








35 EE 


SLDO 7 








36 01 


SLDC 1 








37 82 


AD I 








38 AB 07 


SRO 7 








40 B9 F6 


OJP -10 (6) 








10 IF Patch 


10 with 31 (42) 






171 


( 


* DRAW HORIZONTAL LINES *) 






172 1 8 


42 — FOR I: =18 DOWNTO 1 DO 








42 12 


SLDC 18 








43 AB 07 


SRO 7 








45 01 


SLDC 1 








4 6 CC 01 


STL 1 








48 EE 


SLDO 7 








49 D8 


SLDL 1 








50 C4 


GEQI 








51 Al ** 


FJP [280001 






173 18 


53 1- 


BEGIN 






174 1 8 


53 — 


PENCOLOR (NONE) ; 








53 00 


SLDC 








54 CD 14 07 


CXP 20, PENCOLOR 






175 1 8 


57 — 


MOVETO (0,1*10) ; 








57 00 


SLDC 








58 EE 


SLDO 7 








59 OA 


SLDC 10 








60 8F 


MP I 








61 CD 14 06 


CXP 20, MOVETO 






176 1 8 


64 — 


PENCOLOR (WHITE) ; 








64 01 


SLDC 1 








65 CD 14 07 


CXP 20, PENCOLOR 






177 1 8 


68 — 


MOVETO (XMAX, 1*10) ; 








68 C7 1701 


LDCI 279 








71 EE 


SLDO 7 








72 OA 


SLDC 10 








73 8F 


MP I 








74 CD 14 06 


CXP 20, MOVETO 






178 1 8 


77 -1 


END; 








77 EE 


SLDO 7 








78 01 


SLDC 1 








79 95 


SBI 








80 AB 07 


SRO 7 








82 B9 F4 


□JP -12 (48) 








52 IF Patch 


52 with 31 (84) 






179 1 8 


84 — WAIT (2000); 








84 C7 D007 


LDCI 2000 








87 CF 02 


CGP WAIT 






180 1 8 


89 — FILLSCREEN (REVERSE) ; 








89 03 


SLDC 3 








90 CD 14 OA 


CXP 20,FILLSCRE 






181 1 8 


93 — FILLSCREEN (REVERSE) ; 








93 03 


SLDC 3 








94 CD 14 OA 


CXP 20,FILLSCRE 






182 1 8 


97 — WAIT(2000); ERASE; 








97 C7 D007 


LDCI 2000 








100 CF 02 


CGP WAIT 








102 CF 05 


' CGP ERASE 






183 1 8 


104 -0 A END; 










104 AD 00 


RNP 






184 








V 
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185 














186 


1 


9 


1 — A PROCEDURE DIAGONALS; 






187 


1 


9 


0- A BEGIN 






188 


1 


9 


O — TURNTO(45) ; 












2D 


SLDC 45 












1 CD 14 04 


CXP ?0 TTIRNTO 






189 


1 


9 


4 — 


FOR I:=-19 TO 27 DO 












4 13 


SLDC 19 












5 91 


NGI 












6 AB 07 


SRO 7 












8 IB 


SLDC 2 7 












9 CC 01 


STL 1 












11 EE 


SLDO 7 












12 D8 


SLDL 1 












13 C8 


LEQI 












14 Al ** 


FJP fPfionm 






190 


1 


9 


16 1- 


BEGIN 






191 


1 


9 


16 — 


PENCOLOR (NONE) ; 












16 00 


SLDC 












17 CD 14 07 


CXP 20 PENCOLOR 






192 


1 


9 


20 — 


MOVETO (1*10, 0) ; 












20 EE 


SLDO 7 












21 OA 


SLDC 10 












22 8F 


MP I 












23 00 


SLDC 












24 CD 14 06 


CXP 20, MOVETO 






193 


1 


9 


27 — 


PENCOLOR (WHITE) ; 












27 01 


SLDC 1 












28 CD 14 07 


CXP 2 , PENCOLOR 






194 


1 


9 


31 — 


MOVE (500) ; 












31 C7 F401 


LDCI 500 












34 CD 14 05 


CXP 20, MOVE 






195 


1 


9 


37 -1 


END; 












37 EE 


Jhu\J I 












38 01 


SLDC 1 












39 82 


ADI 












40 AB 07 


SRO 7 












42 B9 F6 


i UJP -10 (11) 












15 1C Patch 


15 with 28 (44) 






196 


1 


9 


44 — 


WAIT (2000); ERASE; 












44 C7 D007 


LDCI 2000 












47 CF 02 


CGP WAIT 












49 CF 05 


CGP ERASE 






197 


1 


9 


51 -0 A END; 














51 AD 00 


RNP 






198 














199 














200 


1 


10 


1 — A PROCEDURE SPIRAL; 






201 


1 


10 


0- A BEGIN 






202 


1 


10 


— PENCOLOR (NONE) ; MOVETO (XMID, YMID) ; 












00 


SLDC 












1 CD 14 07 


CXP 2 0, PENCOLOR 












4 C7 8C00 


LDCI 140 












7 60 


SLDC 96 












8 CD 14 06 


CXP 2 0, MOVETO 






203 


1 


10 


11 — TURNTO(O); PENCOLOR (RANDCOLOR) ; 












11 00 


SLDC 












12 CD 14 04 


CXP 20,TURNTO 












15 00 


SLDC 












16 00 


SLDC 












17 CF 6 


CGP RANDCOLO 
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19 CD 14 


07 CXP 20,PENCOLOR 






204 


1 


10 


22 — 


FOR I:=l TO 300 DO 












22 01 


SLDC 1 












23 AB 07 


SRO 7 












25 C7 2C01 LDCI 300 












28 CC 01 


STL 1 












30 EE 


SLDO 7 












31 D8 


SLDL 1 












32 C8 


LEQI 












33 Al ** 


FJP [28000] 






205 


1 


10 


35 1- 


BEGIN 






206 


1 


10 


35 — 


MOVE (I) ; 












35 EE 


SLDO 7 












36 CD 14 


05 CXP 20, MOVE 






207 


1 


10 


39 — 


TURN (-30) ; 












39 IE 


SLDC 30 












40 91 


NGI 












41 CD 14 


03 CXP 20, TURN 






208 


1 


10 


44 -1 


END; 












44 EE 


SLDO 7 












45 01 


SLDC 1 












46 82 


ADI 












47 AB 07 


SRO 7 












49 B9 F6 


UJP -10 (30) 












34 10 Patch 34 with 16 (51) 






209 


1 


10 


51 — 


WAIT (2000) ; ERASE; 












51 C7 D007 LDCI 2000 












54 CF 02 


CGP WAIT 












56 CF 05 


CGP ERASE 






210 


1 


10 


58 -0 A END; 












58 AD 00 


RNP 






211 














212 














213 


1 


11 


1 — A PROCEDURE SQUIGGLE; 






214 


1 


11 


0- A BEGIN 






215 


1 


11 


— 


PENCOLOR (NONE) ; MO VETO ( XMI D , YMID ) ; 












00 


SLDC 












1 CD 14 


07 CXP 20, PENCOLOR 












4 C7 8C00 LDCI 140 












7 60 


SLDC 96 












8 CD 14 


6 CXP 20,MOVETO 






216 


1 


11 


11 — 


PENCOLOR (WHITE) ; 












11 01 


SLDC 1 ' 












12 CD 14 


07 CXP 20, PENCOLOR 






217 


1 


11 


15 1- 


REPEAT 






218 


1 


11 


15 — 


TURN ( (RANDOM MOD 901-60); 












15 00 


SLDC 












16 00 


SLDC 












17 CD 16 


06 CXP 22, RANDOM 












20 5A 


SLDC 90 












21 8E 


MODI 












22 3C 


SLDC 60 












23 95 


SB I 












24 CD 14 


03 CXP 20, TURN 






219 


1 


1 1 


27 — 


MOVE (5) ; 












27 05 


SLDC 5 












28 CD 14 


05 CXP 20, MOVE 






220 


1 


11 


31 -1 


UNTIL (TDRTLEX>XMAX) OR (TURTLEX<0) OR (TURTLEY<0) OR (TURTLEY>YMAX) ; 












31 00 


SLDC 












32 00 


SLDC 












33 CD 14 


0C CXP 20,TURTLEX 
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221 

222 

223 
224 
225 
226 
227 



228 



229 



230 



231 
232 



233 



234 







36 C7 


1701 


LDCI 279 






39 C5 




GRTI 






40 00 




SLDC 






41 00 




SLDC 






42 CD 


14 OC 


CXP 20,TURTLEX 






45 00 




SLDC 






46 C9 




LESI 






47 8D 




LOR 






48 00 




SLDC 






49 00 




SLDC 






50 CD 


14 OD 


CXP 20, TURTLE Y 






53 00 




SLDC 






54 C9 




LESI 






55 8D 




LOR 






56 00 




SLDC 






57 00 




SLDC 






58 CD 


14 OD 


CXP 20, TURTLEY 






61 C7 


BFOO 


LDCI 191 






64 C5 




GRTI 






65 8D 




LOR 






66 Al 


F6 


FJP -10 (15) 


1 


11 


68 — 


ERASE , 








68 CF 


05 


CGP ERASE 


1 


11 


70 -0 


A END; 








70 AD 


00 


RNP 


1 


12 


1 — 


A PROCEDURE WALLBUMP ; 


1 


12 


0- 


A BEGIN 




1 


12 


— 


PENCOLOR (NONE) ; MOVETO (XMID, 






00 




SLDC 






1 CD 


14 07 


CXP 20, PENCOLOR 






4 C7 


8C00 


LDCI 140 






7 60 




SLDC 96 






8 CD 


14 06 


CXP 20, MOVETO 


1 


12 


11 — 


PENCOLOR (WHITE) ; 






11 01 




SLDC 1 






12 CD 


14 07 


CXP 20, PENCOLOR 


1 


12 


15 — 


I:=0; 








15 00 




SLDC 






16 AB 


07 


SRO 7 


1 


1 2 


18 — 


WHILE 


K40 DO 






18 EE 




SLDO 7 






19 28 




SLDC 4 






20 C9 




LESI 






21 Al 


* * 


FJP [28000] 


1 


12 


23 1- 


BEGIN 


1 


12 


23 — 


IF 


(TURTLEX>XMAX) 






23 00 




SLDC 






24 00 




SLDC 






25 CD 


14 OC 


CXP 20,TURTLEX 






28 C7 


1701 


LDCI 279 






31 C5 




GRTI 


1 


12 


32 — 




OR (TURTLEX<0) 






32 00 




SLDC 






33 00 




SLDC 






34 CD 


14 OC 


CXP 20,TURTLEX 






37 00 




SLDC 






38 C9 




LESI 


1 


12 


39 — 




OR ( TURTLE Y>YMAX) 






39 8D 




LOR 






40 00 




SLDC 






41 00 




SLDC 
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42 CD 14 0D CXP 20, TURTLE Y 












45 C7 BF00 LDCI 191 












4 8 C5 GRTI 






235 


1 


12 


4 9 — OR ( TURTLE Y<0) 












49 8D LOR 












50 00 SLDC 












51 00 SLDC 












52 CD 14 0D CXP 20, TURTLE Y 












55 00 SLDC 












56 C9 LESI 






236 


1 


12 


57 2- THEN BEGIN 












57 8D LOR 












58 Al ** FJP [28000] 






237 


1 


12 


60 — TURN (180) ; 












60 C7 B400 LDCI 180 












63 CD 14 03 CXP 20, TURN 






238 


1 


12 


66 — PENCOLOR (RANDCOLOR) ; 












66 00 SLDC 












67 00 SLDC 












68 CF 06 CGP RANDCOLO 












70 CD 14 07 CXP 20, PENCOLOR 






239 


1 


12 


73 ~ 












" EE SLDO 7 












74 01 SLDC 1 












75 82 ADI 












76 AB 07 SRO 7 






240 


1 


12 


78 -2 END 






241 


1 


12 


' ° £iJjoCi 1 UKW { \ KANUUM HUD 43 J ~£.Z ) r 












78 B9 ** UJP [3257] 












80 00 SLDC 












Sinn ct r\f n 












82 CD 16 06 CXP 22, RANDOM 












85 2D SLDC 45 












86 8E MODI 












8"? 16 SLDC 22 












88 95 SBI 












89 CD 14 03 CXP 20 TURN 












•j ^ r ciLLii Wltn d. \) ( oU) 












79 0C Patch 79 with 12 (92) 






242 


1 


12 


92 — MOVE (10); 












92 OA SLDC 10 












93 CD 14 05 CXP 20, MOVE 






243 


1 


12 


96 -1 END; 












96 B9 F6 DJP -10 (18) 












22 4B Patch 22 with 75 (98) 






244 


1 


12 


98 — ERASE; 












98 CF 05 CGP ERASE 






245 


1 


12 


100 -0 A END; 












100 AD 00 RNP 






246 












247 












248 


1 


13 


1 — A PROCEDURE POLYGON (SIDES, EDGE : INTEGER); 






249 




1 "3 
1 J 


3 — VAR I , ANG : INTEGER; 






250 


1 


13 


0- A BEGIN 






251 


1 


13 


— ANG: =360 DIV SIDES; 












C7 6801 LDCI 360 












3 D9 SLDL 2 












4 86 DVI 












5 CC 03 STL 3 
— ^ j 
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252 






(* SKIP POLYGONS WHICH DON'T CLOSE ALL THE WAY *) 






253 1 


13 


7 — 


IF (ANG*SIDES) O360 THEN EXIT (POLYGON) ; 










7 DA 


SLDL 3 










8 D9 


SLDL 2 










9 8F 


MP I 










10 C7 6801 LDCI 360 










13 CB 


NEQI 










14 Al ** 


FJP [1185] 










16 01 


SLDC 1 










17 0D 


SLDC 13 










18 9E 04 


CSP EXIT 










15 04 Patch 15 with 4 (20) 






254 1 


13 


20 — 


PENCOLOR (WHITE) ; 










20 01 


SLDC 1 










21 CD 14 


07 CXP 20, PENCOLOR 






255 1 


13 


24 — 


FOR I:-l TO SIDES DO 










24 01 


SLDC 1 










25 CC 04 


STL 4 










27 D9 


SLDL 2 










28 CC 05 


STL 5 










30 DB 


SLDL 4 










31 DC 


SLDL 5 










32 C8 


LEQI 










33 Al ** 


FJP [28000] 






256 1 


13 


35 1- 


BEGIN 






257 1 


13 


35 — 


MOVE (EDGE) ; 










35 D8 


SLDL 1 










36 CD 14 


05 CXP 20, MOVE 






258 1 


13 


39 — 


TURN (-ANG) ; 










3 9 DA 


SLDL 3 










40 91 


NGI 










41 CD 14 


03 CXP 20, TURN 






259 1 


13 


44 -1 


END; 










44 DB 


SLDL 4 










45 01 


SLDC 1 










46 82 


ADI 










47 CC 04 


STL 4 










49 B9 F6 


UJP -10 (30) 










34 10 Patch 34 with 16 (51) 






2 60 1 


13 


51 — 


PENCOLOR (NONE) ; 










51 00 


SLDC 










52 CD 14 


07 CXP 20, PENCOLOR 






261 1 


13 


55 -0 A END; 










55 AD 00 


RNP 






2 62 












263 












2 64 1 


14 


1 — A PROCEDURE POLYGONS; 






2 65 1 


14 


0- A BEGIN 






2 66 1 


14 


— 


PENCOLOR (NONE) ; 










00 


SLDC 










1 CD 14 


07 CXP 20, PENCOLOR 






267 1 


14 


4 — 


FOR I:-l TO 40 DO 










4 01 


SLDC 1 










5 AB 07 


SRO 7 










7 28 


SLDC 4 










8 CC 01 


STL 1 










10 EE 


SLDO 7 










11 D8 


SLDL 1 










12 C8 


LEQI 
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13 


Al 


* * 


FJP 


[28000] 


2 68 


1 


14 


15 


1- 


BEGIN 






2 69 


1 


14 


15 




MOVETO( (RANDOM MOD 400) -50, (RANDOM MOD 








15 


00 




SLDC 











16 


00 




SLDC 











17 


CD 


16 06 


CXP 


22, RANDOM 








20 


C7 


9001 


LDCI 


400 








23 


8E 




MODI 










24 


32 




SLDC 


50 








25 


95 




SBI 










26 


00 




SLDC 











27 


00 




SLDC 











28 


CD 


16 06 


CXP 


22, RANDOM 








31 


C7 


2C01 


LDCI 


300 








34 


8E 




MODI 










35 


32 




SLDC 


50 








36 


95 




SBI 










37 


CD 


14 06 


CXP 


20, RANDOM 


270 


1 


14 


40 




TURNTO(O) ; 










40 


00 




SLDC 











41 


CD 


14 04 


CXP 


20,TURNTO 


271 


1 


14 


44 


~~ 


POLYGON ( (RANDOM MOD 9) +3, (RANDOM MOD 40 








44 


00 




SLDC 











45 


00 




SLDC 











46 


CD 


16 06 


CXP 


22, RANDOM 








49 


09 




SLDC 


9 








50 


8E 




MODI 










51 


03 




SLDC 


3 








52 


82 




AD I 










53 


00 




SLDC 











54 


00 




SLDC 











55 


CD 


16 06 


CXP 


22, RANDOM 








58 


28 




SLDC 


40 








59 


8E 




MODI 










60 


05 




SLDC 


5 








61 


82 




AD I 










62 


CF 


OD 


CGP 


POLYGON 


2 72 


1 


14 


64 


-1 


END; 












64 


EE 




SLDO 


7 








65 


01 




SLDC 


1 








66 


82 




ADI 










67 


AB 


07 


SRO 


7 








69 


B9 


F6 


UJP 


-10 (10) 








14 


38 


Patch 14 with 56 (71) 




273 


1 


14 


71 




WAIT (4000) ; 


ERASE; 








71 


C7 


A00F 


LDCI 


4000 








74 


CF 


02 


CGP 


WAIT 








76 


CF 


05 


CGP 


ERASE 


274 


1 


14 


78 


-0 


A END; 












78 


AD 


00 


RNP 





275 
















276 
















277 


1 


15 


1 




A PROCEDURE STUFF (VAR BITMAP: PICTURE; S:STRING) 


278 










(* MAKE BUTTERFLY BITMAP FORM STRINGS *) 


279 


1 


15 


44 




VAR J: INTEGER; 




280 


1 


15 





fl- 


A BEGIN 






281 


1 


15 







FOR J:=l TO 


LENGTH (S) DO 











ee 


03 


LLA 


3 








2 


D8 




SLDL 


1 








3 


AA 


50 


SAS 


80 








5 


01 




SLDC 


1 
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282 
283 



15 
15 



284 



1 15 



285 



1 15 



286 



1 15 



287 



15 



6 


CC 


2C 






STL 


44 


8 


C6 


03 






LLA 


3 


10 


00 








SLDC 





11 


BE 








LDB 




12 


CC 


2D 






STL 


45 


14 


CA 


2C 






LDL 


44 


16 


CA 


2D 






LDL 


45 


18 


C8 








LEQI 




19 


Al 


** 






FJP 


[28000] 


21 


1- 




BEGIN 
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xxxxxx 
xxxxx 



STUFF 
15 

60, " 



xxxxxxxxxxxxxxxxxxxxx 



87 




202020202020 
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XXXXXX 


165 




202020202020 
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* X 
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87 6 D7 NOP 
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XXXX 
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915 2D2D2D2D2D2D 
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999 585820202020 


XX 
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OF 
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OF 
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619 






2A2A20202020 
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A5 


OF 




LAO 


15 






806 


D7 






NOP 








807 


A6 


3C 


202020582058 


LSA 


60, 


XX 




815 






202049492020 






II 




821 






202058582O2A 






XX * 




827 






2A2A2A2A2A2A 






****** 




833 






2A202A2A2A20 






* * ** 




839 






2A2A202A2A2A 






** *** 




845 






2A2A202A2A2A 






** *** 




851 






2A2.020585820 






* XX 




857 






202020202020 










863 






202020202020 









328 



17 



******** *** ** ***** **** 



869 CF OF CGP 
871 — STUFF (BUTTER, ' X 
871 A5 OF LAO 
873 A6 3C 202020582058 LSA 



STUFF 

XII 

15 

60, " 



************ ***** ** 



881 
887 
893 



202049204920 
202020495858 
2A20202A2A2A 



X X 
I I 
IXX 
*** 
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899 




2A2A2A2A2A2A ****** 








905 




2A2A2A202A2A *** ** 








911 




2A2A2A202A2A *** ** 








917 




202020582020 X 








923 




202020202020 








92 9 




202020202020 " 








935 D7 




NOP 








936 CF 


OF 


CGP STUFF 






329 1 


17 938 — 




STUFF (BUTTER, ' XXXX X II I XX ***** ****** ***** X X M.- 








938 A5 


OF 


LAO 15 








940 D7 




NOP 








941 A6 


3C 


585858582020 LSA 60, "XXXX 








949 




582020494920 X II 








955 




202020204920 I 








961 




5858202A2A2A XX *** 








967 




2A2A202A2A2A ** *** 








973 




2A2A2A20202A *** * 








979 




2A2A2A2A2020 **** 








985 




202058582020 XX 








991 




202020202020 








997 




202020202020 








1003 CF 


OF 


CGP STUFF 






330 1 


17 1005 — 


STUFF (BUTTER, ' XXII I XX ****** **** xx ,,. 








1005 A5 


OF 


LAO 15 








1007 A6 


3C 


202020205820 LSA 60," X 








1015 




582020492049 XII 








1021 




202020202049 I 








1027 




202058582020 XX 








1033 




202020202A2A ** 








1039 




2A2A2A2A202A **** * 








1045 




2A2A2A202020 *** 








1051 




205858202020 XX 








1057 




202020202020 








1063 




202020202020 








1069 D7 




NOP 








1070 CF 


OF 


CGP STUFF 






331 1 


17 1072 -0 


A 


2ND; 








1072 AD 


00 


RNP 






332 












333 












334 1 


18 1 — 


A PROCEDURE BUTTER3; 






335 1 


18 0- 


A BEGIN 






336 1 


18 — 


STUFF (BUTTER, ' X X III IIIIXXX *** XX ')• 








A5 


OF 


LAO 15 








2 D7 




NOP 








3 A6 


3C 


202020205820 LSA 60," X 








11 




582020494949 X III 








17 




202020202020 








23 




494949495858 IIIIXX 








29 




582020202020 X 








35 




202A2A2A2020 *** 








41 




202020202020 








47 




585820202020 XX 








53 




202020202020 








59 




202020202020 








65 CF 


OF 


CGP STUFF 






337 1 


18 67 


STUFF (BUTTER, 1 XXII I II XXX XX ■)• 








67 A5 


OF 


LAO 15 








69 A6 


3C 


202020205820 LSA 60," X 








77 




205820204920 X I 








83 




492020202020 I 








89 




204920204949 I II 








95 




205858582020 XXX 

A 
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101 




202020202020 










107 




202020202058 


X 








113 




582020202020 


X 








119 




202020202020 










125 




202020202020 


II 








131 D7 




NOP 










132 CF 


OF 


CGP 


STUFF 








338 1 18 134 — 




STUFF (BUTTER, ' XXXX X III 


I II XXXX XX '); 






134 A5 


OF 


LAO 


15 








136 D7 




NOP 










137 A6 


3C 


585858582020 LSA 


60, "XXXX 








145 




205820202049 


X I 








151 




494 920202020 


II 








157 




204920202020 


I 








163 




494920205858 


II XX 








169 




585820202020 


XX 








175 




202020585820 


XX 








181 




202020202020 










187 




202020202020 










193 




202020202020 


„ 








199 CF 


OF 


CGP 


STUFF 








339 1 18 201 — 


STUFF (BUTTER, ■ 


XX X II 


I I XXXXXXXXX ■ ) ; 






201 A5 


OF 


LAO 


15 






203 A6 


3C 


202020205858 LSA 


60, " XX 








211 




205820202049 


X I 








217 




204920202020 


I 








223 




202049202030 


I 








229 




202049202020 


I 








235 




205858585858 


xxxxx 








241 




585858582020 


XXXX 








247 




202020202020 










253 




202020202020 










259 




202020202020 


„ 








265 D7 




NOP 










266 CF 


OF 


CGP 


STUFF 








340 1 18 268 — 


STUFF (BUTTER, ' 


XX X II 


I 00 I X XXXX ' ) ; 






268 A5 


OF 


LAO 


15 






270 D7 




NOP 










271 A6 


3C 


202020205858 LSA 


60," XX 








279 




202058202020 


X 








285 




204949202020 


II 








291 




202049202030 


I 








2 97 




302020492020 


I 








303 




205820205858 


X XX 








309 




585820202020 


XX 








315 




202020202020 










321 




202020202020 










327 




202020202020 


„ 








333 CF 


OF 


CGP 


STUFF 








341 1 18 335 — 


STUFF (BUTTER, ' 


XX X I I 


II 000 I X ■) • 






335 A5 


OF 


LAO 


15 






337 A6 


3C 


202020205858 LSA 


60, " XX 








345 




202058202049 


X I 








351 




202049202020 


I 








357 




202049492020 


II 








363 




303030204920 


000 I 








369 




202058202020 


X 








375 




202020202020 










381 




202020202020 










387 




202020202020 










393 




202020202020 










399 D7 




NOP 










400 CF 


OF 


CGP 


STUFF 
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342 1 18 402 — 




STUFF (BUTTER, ■ XXXXXX 


X I III I II I X >) ; 






402 A5 


OF 


LAO 


15 








404 D7 




NOP 










405 A6 


3C 


585858585858 LSA 


60, 


"XXXXXX 






413 




202058202049 




X I 






419 




202020494949 




III 






425 




202049204949 




I II 






431 




203020202049 




I 






437 




202058202020 




X 






443 




202020202020 










449 




202020202020 










455 




202020202020 










4 61 




202020202020 










4 67 CF 


OF 


CGP 


STUFF 






343 1 18 469 — 




STUFF (BUTTER, ' 


X X 


X II I III II I X ■) ; 






4 69 A5 


OF 


LAO 


15 








471 A6 


3C 


202020205820 LSA 


60, 


X 






479 




582058202049 




XXI 






485 




492020492049 




III 






491 




494920202049 




II I 






4 97 




492020302020 




I 






503 




492058202020 




I X 






509 




202020202020 










515 




202020202020 










521 




202020202020 










527 




202020202020 










533 D7 




NOP 










534 CF 


OF 


CGP 


STUFF 






344 1 18 536 — 


STUFF (BUTTER, ■ X 


X 


X II I I 00 II I X > ) ; 






536 A5 


OF 


LAO 


15 






538 D7 




NOP 










539 A6 


3C 


202020582020 LSA 


60, 


X 






547 




582020582049 




XXI 






553 




492020492020 




I I 






559 




204920303020 




I 00 






565 




494920302049 




II I 






571 




205820202020 




X 






577 




202020202020 










583 




202020202020 










589 




202020202020 










5 95 




202020202020 




II 






601 CF 


OF 


CGP 


STUFF 






345 1 18 603 — 


STUFF (BUTTER, 'XXXX 


X 


X I I I 00 I IX ■ ) ; 






603 A5 


OF 


LAO 


15 






605 A6 


3C 


585858582020 LSA 


60, 


'XXXX 






613 




205820582020 




X X 






619 




492020492020 




I I 






625 




202049203030 




I 00 






631 




204920202049 




I I 






637 




582020202020 




X 






643 




202020202020 










649 




202020202020 










655 




202020202020 










661 




202020202020 










667 D7 




NOP 










668 CF 


OF 


CGP 


STUFF 






346 1 18 670 — 


STUFF (BUTTER, ' X 


XXIIOIOOIIX ■ | . 






670 A5 


OF 


LAO 


15 








672 D7 




NOP 










673 A6 


3C 


202020582020 LSA 


60, ' 


X 






681 




202058582020 




XX 






687 




492020492020 




I I 






693 




302049203030 




I 00 
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699 




202049202049 


i i 










705 




205820202020 


X 










711 




202020202020 












717 




202020202020 












723 




202020202020 












729 




202020202020 












735 CF 


OF 


CGP 


STUFF 






347 1 


18 


737 -0 


A 


END; 












737 AD 


00 


RNP 









348 
















349 1 


19 


1 — 


A 


PROCEDURE BUTTER4; 








350 1 


19 


0- 


A 


BEGIN 








351 1 


19 


— 




STUFF (BUTTER, 'XXX 


X I I 000 I II X ') ; 










A5 


OF 


LAO 


15 










2 D7 




NOP 












3 A6 


3C 


585858202020 LSA 


60, "XXX 










11 




202020582020 


X 










17 




492020492030 


I I 










23 




303020492020 


00 I 










29 




202020494920 


II 










35 




205820202020 


X 










41 




202020202020 












47 




202020202020 












53 




202020202020 












59 




202020202020 












65 CF 


OF 


CGP 


STUFF 






352 1 


19 


67 — 




STUFF (BUTTER, • X 


X I I 00 I 00 I X ' ) ; 










67 A5 


OF 


LAO 


15 










69 A6 


3C 


202058202020 LSA 


60," X 










77 




202020582020 


X 










83 




492030204920 


I I 










89 




303020492020 


00 I 










95 




303020492020 


00 I 










101 




205820202020 


X 










107 




202020202020 












113 




202020202020 












119 




202020202020 












125 




202020202020 












131 D7 




NOP 












132 CF 


OF 


CGP 


STUFF 






353 1 


19 


134 — 


STUFF (BUTTER, ■ X 


X I I I I X 1 ) ; 










134 A5 


OF 


LAO 


15 










136 D7 




NOP 












137 A6 


3C 


205820202020 LSA 


60," X 










145 




202020205820 


X 










151 




492030204920 


I I 










157 




202020204920 


I 










163 




202020492058 


I X 










169 




202020202020 












175 




202020202020 












181 




202020202020 












187 




202020202020 












193 




202020202020 












199 CF 


OF 


CGP 


STUFF 






354 1 


19 


201 — 


STUFF (BUTTER, 'X 


X I I I IX ■ ) ; 










201 A5 


OF 


LAO 


15 










203 A6 


3C 


582020202020 LSA 


60, "X 










211 




202020205820 


X 










217 




204920204920 


I I 










223 




203020204920 


I 










229 




202049202058 


I X 










235 




202020202020 












241 




202020202020 
































"_66.PICT" 1 37 KB 2001 -08-29 dpi: 300h x 300v pix: 2360h x 31 50v 


l Source: David T. Craig 




( GrafDemo 


• /// Pascal 2.1 36 ) | Page 0028 of 0035 . 



Apple III Computer Information • Doc #151 • Apple /// Pascal P-Code Sample 



6/15/89 3:30 PM 



Disk # 3:a3.grafdemo.pcode.text 



Page 27 



355 



19 



358 



19 



359 



19 



247 
253 
259 

2 65 D7 
2 66 CF 
2 68 — 
2 68 A5 

270 D7 

271 A6 
279 
285 

2 91 
297 
303 
309 
315 
321 
327 

333 CF 

335 — 

335 A5 

337 A6 

345 

351 

357 

363 

369 

375 

381 

387 

393 

399 D7 

400 CF 
402 — 
402 A5 

404 D7 

405 A6 
413 
419 
425 
431 
437 
443 
449 
455 
461 

4 67 CF 

469 — 

469 A5 

471 A6 

479 

485 

4 91 

497 

503 

509 

515 

521 

527 

533 D7 

534 CF 
536 — 
536 A5 



202020202020 
202020202020 
202020202020 



NOP 
CGP 



STUFF (BUTTER, 



OF 



LAO 
NOP 

3C 202020202020 LSA 
202020202058 
204920204920 
203030202049 
494920205820 
202020202020 
202020202020 
202020202020 
202020202020 
202020202020 

OF 

STUFF (BUTTER 

OF 

3C 202020202020 LSA 
202020202020 
582049494949 
202020204920 
202020205820 
202020202020 
202020202020 
202020202020 
202020202020 
202020202020 



STUFF 



15 



00 III X 



60, 



I 

00 
II 



CGP STUFF 



X IIII 



LAO 



15 

60," 



IIII 
I 
X 



OF 



NOP 
CGP 



STUFF (BUTTER, ' 
OF LAO 
NOP 

3C 202020202020 LSA 
202020202020 
205820202020 
492020204920 
585858582020 
202020202020 
202020202020 
202020202020 
202020202020 
202020202020 



STUFF 



15 



I xxxx 



60, 



X 

I I 
xxxx 



OF 



CGP STUFF 



STUFF (BUTTER, 



XXXXXIII x 



OF LAO 
3C 202020202020 LSA 
202020202020 
202058585858 
5849494 92058 
202020202020 
202020202020 
202020202020 
202020202020 
202020202020 
202020202020 



') ; 



15 
60, 



XXXX 
XIII X 



OF 



NOP 
CGP 



STUFF 



STUFF (BUTTER, 



X X 



OF 



LAO 15 
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538 D7 NOP 










539 A6 3C 202020202020 LSA 


60, " 








547 202020202020 










553 202020202020 










559 205820205820 


X X 








565 202020202020 










571 202020202020 










577 202020202020 










583 202020202020 










589 202020202020 










595 202020202020 


» 








601 CF OF CGP 


STUFF 






360 1 19 


603 — STUFF (BUTTER, 1 


XX , j . 








603 A5 OF lao 


15 








605 A6 3C 202020202020 LSA 


60, " 








613 202020202020 










619 202020202020 










625 202058582020 


XX 








631 202020202020 










637 202020202020 










643 202020202020 










649 202020202020 










655 202020202020 










661 202020202020 


II 








667 D7 NOP 










668 CF OF CGP 


STUFF 






361 1 19 


670 -0 A END; 










670 AD 00 rnp 









362 










363 










364 1 20 


1 — A PROCEDURE INITBUTTERFLY; 






365 1 20 


0- A BEGIN 








366 1 20 


— BUTTER1; 










CF 10 CGP 


BUTTER1 






367 1 20 


2 — BUTTER2; 










2 CF 11 CGP 


BUTTER2 






368 1 20 


4 — BUTTER3; 










4 CF 12 CGP 


BUTTERS 






369 1 20 


6 — BUTTER4 ; 










6 CF 13 CGP 


BUTTER4 






370 1 20 


8 -0 A END; 










8 AD 00 rnp 









371 










372 








373 


(* 








374 


(* PARAMETERS TO DRAWBLOCK ARE: 






375 


(* 1. SOURCE ARRAY NAME *, 






376 


(* 2. ROWSIZE IN BYTES 2*(( DOTSWIDE+15 ) DIV 16 ) *) 






377 


(* 3. XSKIP HOW 


MANY DOTS TO SKIP BEFORE TRANSFERING *) 






378 


(* 4. YSKIP HOW 


MANY ROWS TO SKIP *i 






379 


(* 5. WIDTH IN DOTS *. 






380 


(* 6. HEIGHT IN 


DOTS *■ 






381 


(* 7. XSCREEN WHERE TO PUT IT ON THE HIRES SCREEN (0..279I *> 






382 


(* 8. YSCREEN 


(0..191) *) 






383 


(* 9. MODE 








384 


(* 


* ) 






385 
386 


( * MODE RANGES . . 
(* 


15 TO FILL IN THE FOLLOWING TRUTH TABLE: *) 






387 


) 

( * CURRENT SCREEN SOURCE RESULTANT SCREEN *) 






388 
389 


(* I — 
<* I 


FALSE I FALSE I LSB MODE I *) 






390 


(* I — 






V 


391 


(* I 


FALSE I TRUE I I *) 
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392 <* j 2 z j 

393 (* I TROE I FALSE I I 

394 (* j j j x 

395 (* I TRUE I TRUE I MSB MODE I 

396 <* i j j j 

397 (* 

398 <* FOR EXAMPLE, MODE 0=FILL BLACK, 10-COPY SOURCE, 14=OR, 6=XOR, ETC. 

399 (* 

400 (***************************************************************»******,,.,', 
401 
4 02 

4 03 1 21 1 — A PROCEDURE FLUTTER; 

404 1 21 0- A BEGIN 

4 05 (* DRAW SIX BUTTERFLIES 

406 1 21 



407 1 21 



408 1 21 



409 1 21 



410 1 21 








DRAWBLOCK (BUTTER, 16, 0,0, 12 0,54, 10, 0,14); 





A5 


OF LAO 


15 


2 


10 


SLDC 


16 


3 


00 


SLDC 





4 


00 


SLDC 





5 


78 


SLDC 


120 


6 


36 


SLDC 


54 


7 


OA 


SLDC 


10 


8 


00 


SLDC 





9 


0E 


SLDC 


14 


10 


CD 


14 10 CXP 


20, DRAWBLOC 


13 




DRAWBLOCK (BUTTER, 16, 0, 0, 120, 54, 150, 64, 14) ; 


13 


A 5 


OF LAO 


15 


15 


10 


SLDC 


16 


16 


00 


SLDC 





17 


00 


SLDC 





18 


78 


SLDC 


120 


19 


36 


SLDC 


54 


20 


C7 


9600 LDCI 


150 


23 


40 


SLDC 


64 


24 


0E 


SLDC 


14 


25 


CD 


14 10 CXP 


20, DRAWBLOC 


28 


— 


DRAWBLOCK (BUTTER, 16, 0, 0, 120, 54, 10, 128, 14) ; 


28 


A5 


OF LAO 


15 


30 


10 


SLDC 


16 


31 


00 


SLDC 





32 


00 


SLDC 





33 


78 


SLDC 


120 


34 


36 


SLDC 


54 


35 


OA 


SLDC 


10 


36 


C7 


8000 LDCI 


128 


39 


OE 


SLDC 


14 


40 


CD 


14 10 CXP 


20, DRAWBLOC 


43 




DRAWBLOCK (BUTTER, 16, 0, 0, 120, 54 , 150, 128, 14) ; 


43 


A5 


OF LAO 


15 


45 


10 


SLDC 


16 


46 


00 


SLDC 





47 


00 


SLDC 





48 


78 


SLDC 


120 


49 


36 


SLDC 


54 


50 


C7 


9600 LDCI 


150 


53 


C7 


8000 LDCI 


128 


56 


OE 


SLDC 


14 


57 


CD 


14 10 CXP 


20, DRAWBLOC 


60 




DRAWBLOCK (BUTTER, 16, 0, 0, 120, 54, 10, 64,14); 


60 


A5 


OF LAO 


15 


62 


10 


SLDC 


16 


63 


00 


SLDC 





64 


00 


SLDC 
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411 1 21 



412 1 21 



413 1 21 



414 

415 1 21 



41S 1 21 



417 1 21 



418 1 21 



65 


78 




SLDC 


120 




66 


36 




SLDC 


54 




67 


OA 




SLDC 


10 




68 


40 




SLDC 


64 




69 


OE 




SLDC 


14 




70 


CD 


14 10 


CXP 


20,DRAWBLOC 




73 




DRAWBLOCK ( BUTTER , 1 6 , 0, 0, 120, 54, 150, 0, 


14) ; 


73 


A5 


OF 


LAO 


15 




75 


10 




SLDC 


16 




76 


00 




SLDC 







77 


00 




SLDC 







78 


78 




SLDC 


120 




79 


36 




SLDC 


54 




80 


C7 


9600 


LDCI 


150 




83 


00 




SLDC 







84 


OE 




SLDC 


14 




85 


CD 


14 10 


CXP 


20,DRAWBLOC 




88 




WAIT(8000) ; 


FILLSCREEN (REVERSE) ; WAIT(3000) ; 


88 


C7 


401F 


LDCI 


8000 




91 


CF 


02 


CGP 


WAIT 




93 


03 




SLDC 


3 




94 


CD 


14 OA 


CXP 


20,FILLSCRE 




97 


C7 


B80B 


LDCI 


3000 




100 


CF 


02 


CGP 


WAIT 




102 




FILLSCREEN (REVERSE) ; 




102 


03 




SLDC 


3 




103 


CD 


14 OA 


CXP 


20,FILLSCRE 








(* USE XOR 


MODE TO REMOVE ONE AT A TIME 


*) 


106 





DRAWBLOCK (BUTTER, 16, 0,0,120,54, 10, 0, 


6) ; 


106 


A5 


OF 


LAO 


15 




108 


10 




SLDC 


16 




109 


00 




SLDC 







110 


00 




SLDC 







111 


78 




SLDC 


120 




112 


36 




SLDC 


54 




113 


OA 




SLDC 


10 




114 


00 




SLDC 







115 


06 




SLDC 


6 




116 


CD 


14 10 


CXP 


20, DRAW BLOC 




119 





DRAWBLOCK (BUTTER, 16,0, 0, 120,54,150, 64, 


6) ; 


119 


A5 


OF 


LAO 


15 




121 


10 




SLDC 


16 




122 


00 




SLDC 







123 


00 




SLDC 







124 


78 




SLDC 


120 




125 


36 




SLDC 


54 




126 


C7 


9600 


LDCI 


150 




129 


40 




SLDC 


64 




130 


06 




SLDC 


6 




131 


CD 


14 10 


CXP 


20,DRAWBLOC 




134 





DRAWBLOCK (BUTTER, 16, 0, 0, 120, 54, 10, 128, 


6) ; 


134 


A5 


OF 


LAO 


15 




136 


10 




SLDC 


16 




137 


00 




SLDC 







138 


00 




SLDC 







139 


78 




SLDC 


120 




140 


36 




SLDC 


54 




141 


OA 




SLDC 


10 




142 


C7 


8000 


LDCI 


128 




145 


06 




SLDC 


6 




146 


CD 


14 10 


CXP 


20,DRAWBLOC 




149 




DRAWBLOCK (BUTTER, 16, 0, 0, 120, 54 , 150, 128, 


6) ; 


149 


A5 


OF 


LAO 


15 
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151 10 


SLDC 


16 










152 00 


SLDC 













153 00 


SLDC 













154 78 


SLDC 


120 










155 36 


SLDC 


54 










156 C7 9600 


LDCI 


150 










159 C7 8000 


LDCI 


128 










162 06 


SLDC 


6 










163 CD 14 10 


CXP 


20,DRAWBLOC 






419 1 


21 


166 — DRAWBLOCK (BUTTER, 16, 0,0, 120, 54, 10, 64, 6) ; 










166 A5 OF 


LAO 


15 










168 10 


SLDC 


16 










169 00 


SLDC 













170 00 


SLDC 













171 78 


SLDC 


120 










172 36 


SLDC 


54 










173 OA 


SLDC 


10 










174 40 


SLDC 


64 










175 06 


SLDC 


6 










176 CD 14 10 


CXP 


20, DRAWBLOC 






420 1 


21 


179 — DRAWBLOCK(BOTTER,16,0,0,120,54,150, 0, 6) ; 










17 9 A5 OF 


LAO 


15 










181 10 


SLDC 


16 










182 00 


SLDC 













183 00 


SLDC 













184 78 


SLDC 


120 










185 36 


SLDC 


54 










186 C7 9600 


LDCI 


150 










189 00 


SLDC 













190 06 


SLDC 


6 










191 CD 14 10 


CXP 


20, DRAWBLOC 






421 1 


21 


194 -0 A END; 
194 AD 00 


RNP 









422 














423 














424 1 


1 


0- BEGIN 










425 1 


1 


— WRITELN ( ' PRESS ANY KEY TO QUIT.'); 










D7 


NOP 












1 D7 


NOP 












2 CD 14 01 


CXP 


20, INIT_UNIT 










5 CD 16 01 


CXP 


22, INITJJNIT 










8 B6 01 03 


LOD 


1,3 










11 A6 16 505245535320 


LSA 


22, "PRESS 










19 414E59204B45 




ANY KE 










25 5920544F2051 




Y TO Q 










31 5549542E 




UIT." 










35 D7 


NOP 












36 00 


SLDC 













37 CD 00 13 


CXP 


0,WRITE_STR 










40 9E 00 


CSP 


IOCHECK 










42 B6 01 03 


LOD 


1,3 










45 CD 00 16 


CXP 


0, WRITELN 










48 9E 00 


CSP 


IOCHECK 






426 1 


1 


50 — WRITELN ( 1 PLEASE WAIT WHILE CREATING BUTTERFLY ' ) ; 










50 B6 01 03 


LOD 


1,3 










53 A6 24 504C45415345 


LSA 


36, "PLEASE 










61 205741495420 




WAIT 










67 5748494C4520 




WHILE 










73 435245415449 




CREATI 










79 4E4720425554 




NG BUT 










85 544552464C59 




TERFLY" 










91 D7 


NOP 












92 00 


SLDC 




J 
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93 CD 00 13 CXP 0,WRITE_STR 

96 9E 00 CSP IOCHECK 

98 B6 01 03 LOD 1,3 

101 CD 00 16 CXP 0,WRITELN 

104 9E 00 CSP IOCHECK 

427 1 1 106 — INITBUTTERFLY; 

106 CE 14 CLP INITBDTT 

428 1 1 108 — INITTURTLE; 

108 CD 14 02 CXP 20, INITTURT 

429 1 1 111 — FRAME (WHITE) ; 

HI 01 SLDC 1 

112 CE 03 CLP FRAME 

430 1 1 114 — RANDOMIZE; 

114 CD 16 07 CXP 22,RANDOMIZ 

431 1 1 117 — COLORS [0 ] :=WHITE; 

117 A5 09 LAO 9 

119 00 SLDC 

120 00 SLDC 

121 05 SLDC 5 

122 88 CHK 

123 A4 01 IXA 1 

125 01 SLDC 1 

126 9A STO 

432 1 1 127 — COLORS [1 ] :=REVERSE; 

127 A5 09 LAO 9 

129 01 SLDC 1 

130 00 SLDC 

131 05 SLDC 5 

132 88 CHK 

133 A4 01 IXA 1 

135 03 SLDC 3 

136 9A STO 

433 1 1 137 — COLORS [2] :=GREEN; 

137 A5 09 LAO 9 

139 02 SLDC 2 

140 00 SLDC 

141 05 SLDC 5 

142 88 CHK 

143 A4 01 IXA 1 
145 06 SLDC 6 
14 6 9 A STO 

434 1 1 147 — COLORS [3 ] :=VIOLET; 

147 A5 09 LAO 9 

14 9 03 SLDC 3 

150 00 SLDC 

151 05 SLDC 5 

152 88 CHK 

153 A4 01 IXA 1 
155 07 SLDC 7 

15 6 9A STO 

435 1 1 157 — COLORS [4 ] :=ORANGE; 

157 A5 09 LAO 9 

159 04 SLDC 4 

160 00 SLDC 

161 05 SLDC 5 

162 88 CHK 

163 A4 01 IXA 1 

165 OA SLDC 10 

166 9A STO 

436 1 1 167 — COLORS [ 5 ] : =BLUE ; 

167 A5 09 LAO 9 

169 05 SLDC 5 

170 00 SLDC 
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171 05 


SLDC 


5 












172 88 


CHK 














173 A4 01 


IXA 


1 












175 OB 


SLDC 


11 












176 9A 


STO 








437 
















438 


1 


i 


177 1- 


REPEAT 








439 


1 


i 


177 — 


FAN; 














177 CE 07 


CLP 


FAN 






440 


1 


i 


179 — 


GRID; 














179 CE 08 


CLP 


GRID 






441 


1 


i 


181 — 


SPIRAL; 














181 CE OA 


CLP 


SPIRAL 






442 


1 


i 


183 — 


SQUIGGLE; 














183 CE 0B 


CLP 


SQUIGGLE 






443 


1 


i 


185 — 


DIAGONALS; 














1B5 CE 09 


CLP 


DIAGONAL 






444 


1 


i 


187 — 


WALLBUMP ; 














187 CE 0C 


CLP 


WALLBUMP 






445 


1 


i 


189 — 


POLYGONS; 














189 CE 0E 


CLP 


POLYGONS 






446 


1 


i 


191 — 


FLUTTER; 














191 CE 15 


CLP 


FLUTTER 






447 


1 


i 


193 -1 


UNTIL KEYPRESS; 














193 00 


SLDC 















194 00 


SLDC 















195 CD 16 


05 CXP 


22, KEYPRESS 












198 Al F6 


FJP 


-10 (177) 






448 


1 


i 


200 — 


GOODBYE; 














200 CE 04 


CLP 


GOODBYE 












202 16 


SLDC 


22 












203 9E 16 


CSP 


UNLOAD_SEG 












205 14 


SLDC 


20 












206 9E 16 


CSP 


UNLOAD_SEG 












208 15 


SLDC 


21 












^> Z> 1. D 


CSP 


UNLOAD SEG 












211 B9 ** 


UJP 


[3001] 












213 15 


SLDC 


21 












214 9E 15 


CSP 


LOAD_SEG 












216 14 


SLDC 


20 












217 9E 15 


CSP 


LOAD_SEG 












219 16 


SLDC 


22 












220 9E 15 


CSP 


LOADSEG 












222 B9 F2 


UJP 


-14 (2) 












224 CI 00 


RBP 















212 0B Patch 212 with 11 (224) 






449 64 


i 


202 -0 END. 








Compilation 


complete - no 


errors found. 








Smallest 


available space = 


18887 words. 








449 lines 


compiled in 9.98 


minutes. 








*- 










• 
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